home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Misc / GMS / GMSDev / EModules / input / keyboard.e < prev    next >
Encoding:
Text File  |  1997-11-30  |  1.6 KB  |  64 lines
  1. /*
  2. **  $VER: input.e V0.9B
  3. **
  4. **  Input definitions.
  5. **
  6. **  (C) Copyright 1996-1997 DreamWorld Productions.
  7. **      All Rights Reserved
  8. */
  9.  
  10. OPT MODULE
  11. OPT EXPORT
  12. OPT PREPROCESS
  13.  
  14. MODULE 'dpkernel/dpkernel','system/register'
  15.  
  16. /****************************************************************************
  17. ** The Keyboard object.
  18. */
  19.  
  20. CONST KEYVERSION    = 1
  21. CONST TAGS_KEYBOARD = $FFFB0000 OR ID_KEYBOARD
  22.  
  23. OBJECT keyboard
  24.   head[1] :ARRAY OF head  /* Standard header */
  25.   size    :LONG           /* Size of key buffer */
  26.   buffer  :PTR TO CHAR    /* Pointer to key buffer */
  27.   amtread :INT            /* Amount of keys read from last query */
  28. ENDOBJECT
  29.  
  30. CONST KEYA_Size = TLONG OR 12
  31.  
  32. /****************************************************************************
  33. ** Non-ASCII key codes.
  34. */
  35.  
  36. CONST K_SCS     = $80,      -> Screen switch (LEFTAMIGA + M) 
  37.       K_DEL     = $81,
  38.       K_HELP    = $82,
  39.       K_LSHIFT  = $83,
  40.       K_RSHIFT  = $84,
  41.       K_CAPS    = $85,
  42.       K_CTRL    = $86,
  43.       K_LALT    = $87,
  44.       K_RALT    = $88,
  45.       K_LAMIGA  = $89,
  46.       K_RAMIGA  = $8a,
  47.  
  48.       K_F1  = $8b, K_F2  = $8c, K_F3  = $8d, K_F4  = $8e,
  49.       K_F5  = $8f, K_F6  = $90, K_F7  = $91, K_F8  = $92,
  50.       K_F9  = $93, K_F10 = $94, K_F11 = $95, K_F12 = $96,
  51.       K_F13 = $97, K_F14 = $98, K_F15 = $99, K_F16 = $9a,
  52.       K_F17 = $9b, K_F18 = $9c, K_F19 = $9d, K_F20 = $9e,
  53.  
  54.       C_UP = $9f, C_DOWN = $a0, C_RIGHT = $a1, C_LEFT = $a2,
  55.  
  56.       K_SRIGHT  = $a3,      -> Special key on right 
  57.       K_SLEFT   = $a4,      -> Special key on left 
  58.  
  59.       K_TAB     = 09,
  60.       K_BAKSPC  = 08,
  61.       K_ENTER   = 10,
  62.       K_RETURN  = 10,
  63.       K_ESC     = $1b
  64.